<!--#include file="./top.asp" -->
<%
dim rs_rpt_english, str_rpt_english

set rs_rpt_english = server.CreateObject("ADODB.Recordset")
str_rpt_english = "select * from rpt_english where stu_id = '" & request.QueryString("stu_id") & "'"
rs_rpt_english.open str_rpt_english, conn, 1, 3

if rs_rpt_english.eof then
	rs_rpt_english.addnew
	rs_rpt_english.fields("stu_id") = request.QueryString("stu_id")
	rs_rpt_english.update
	rs_rpt_english.close
	rs_rpt_english.open str_rpt_english, conn, 1, 3
end if


for i = 1 to rs_rpt_english.fields.count - 1
	rs_rpt_english.fields(i) = request.Form("rpt_english_" & i)
	'response.Write "rpt_english_" & i & "= " & request.Form("rpt_english_" & i) & "<br />"
next
rs_rpt_english.update
%>



</body>
</html>
<%
rs_rpt_english.close
set rs_rpt_english = nothing
call CloseConn()
response.Redirect("./rpt_english.asp?stu_id="& request.QueryString("stu_id"))
%>